'/
' mathutil - version 1.033
' Written 2010 by Anton Berlin.
' 
' =========================================================================
' 
' This program is free software; you can redistribute it and/or modify
' it under the terms of the GNU Lesser General Public License as published
' by the Free Software Foundation; either version 3 of the License.
' 
' This program is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
' GNU General Public License for more details.
' 
' You should have received a copy of the GNU Lesser General Public License
' along with this program; if not, write to the Free Software
' Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
'/

superstrict

'// A 2D point.
type Point

	'// -----------------------------------------------------------------------------------------------------------------
	'// Description:
	'// 		Create, setup and return a new point object.
	'// -----------------------------------------------------------------------------------------------------------------
	function create:Point(_x:int, _y:int)
	
		local _point:Point = new Point;
		
		_point.X = _x;
		_point.Y = _y;
		
		return _point;
	
	end function
	
	'// -----------------------------------------------------------------------------------------------------------------
	'// Description:
	'// 		Return a string representation of the point.
	'// -----------------------------------------------------------------------------------------------------------------
	method toString:string()
	
		return X + "x" + Y;
	
	end method
	
	'// -----------------------------------------------------------------------------------------------------------------
	'// Description:
	'// 		Point coordinates.
	'// -----------------------------------------------------------------------------------------------------------------
	field X:int;
	field Y:int;

end type

